Задание для самостоятельной работы 3.2: Работа с операторами условного перехода

Подготовка:

• Создайте новую книгу Excel и сохраните ее как C:\LabCondConstructions.xls.
• Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль Module1.
• Введите в этом стандартном модуле следующий код:

Public Sub IfThenSub()

Dim nResult As Integer

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " & nResult

ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit

End Sub

• Запустите этот код на выполнение и убедитесь, что он выполняется без ошибок. Этот код должен вставлять в ячейку A1 первого листа вашей книги текстовое значение вида "Вы нажали кнопку: 6" в зависимости от того, какая кнопка была нажата в окне сообщения.

Задание 1:

Измените код этой процедуры таким образом, чтобы вместо чисел в ячейку прописывалось строковое значение нажатой кнопки (например, "Вы нажали кнопку: Повтор"). Используйте при этом синтаксическую конструкцию IF:THEN:ELSE.

Задание 2:

Замените в вашей процедуре строку

nResult = MsgBox ("Нажмите кнопку", vbYesNo , "Окно сообщения")

на

nResult = MsgBox ("Нажмите кнопку", vbAbortRetryIgnore , "Окно сообщения")

Измените вашу процедуру таким образом, чтобы она вставляла в ячейку A1 значения "Отменить", "Повторить" или "Пропустить" в зависимости от того, какая кнопка была нажата в окне сообщения. Используйте при этом синтаксическую конструкцию Select:Case.

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)